home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00028_Button Array.final 3.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  3.8 KB  |  139 lines
  1. on mouseDown
  2.   global MH, MV, Opt, Cnt
  3.   set Opt to the optionDown
  4.   set Cnt to the controlDown
  5.   set MH to the mouseH
  6.   set MV to the mouseV
  7.   if (MV < 446) or (MV > 472) then
  8.     return 
  9.   end if
  10.   set S1 to 6
  11.   puppetSound("Slide-In")
  12.   updateStage()
  13.   puppetSprite(S1, 1)
  14.   set PH to the locH of sprite S1
  15.   set Pv to the locV of sprite S1
  16.   if (MH > 59) and (MH < 128) then
  17.     set the castNum of sprite S1 to the number of cast "Reveal.Press.On"
  18.     set the locH of sprite S1 to 90
  19.     set the locV of sprite S1 to 452
  20.   else
  21.     if (MH > 132) and (MH < 205) then
  22.       set the castNum of sprite S1 to the number of cast "Interp.press.on"
  23.       set the locH of sprite S1 to 169
  24.       set the locV of sprite S1 to 453
  25.     else
  26.       if (MH > 209) and (MH < 281) then
  27.         set the castNum of sprite S1 to the number of cast "voice.press.on"
  28.         set the locH of sprite S1 to 245
  29.         set the locV of sprite S1 to 452
  30.         if Opt <> 1 then
  31.           ToggleVoice()
  32.         end if
  33.       else
  34.         if (MH > 285) and (MH < 358) then
  35.           set the castNum of sprite S1 to the number of cast "sound.press.on"
  36.           set the locH of sprite S1 to 321
  37.           set the locV of sprite S1 to 453
  38.           if Opt <> 1 then
  39.             ToggleSound()
  40.           end if
  41.         else
  42.           if (MH > 362) and (MH < 436) then
  43.             set the castNum of sprite S1 to the number of cast "color.press.on"
  44.             set the locH of sprite S1 to 397
  45.             set the locV of sprite S1 to 454
  46.             if Opt <> 1 then
  47.               ToggleColour()
  48.             end if
  49.           else
  50.             if (MH > 438) and (MH < 511) then
  51.               set the castNum of sprite S1 to the number of cast "diary.press.on"
  52.               set the locH of sprite S1 to 471
  53.               set the locV of sprite S1 to 451
  54.             else
  55.               if (MH > 515) and (MH < 585) then
  56.                 set the castNum of sprite S1 to the number of cast "depart.press.on"
  57.                 set the locH of sprite S1 to 551
  58.                 set the locV of sprite S1 to 453
  59.               end if
  60.             end if
  61.           end if
  62.         end if
  63.       end if
  64.     end if
  65.   end if
  66.   updateStage()
  67. end
  68.  
  69. on mouseUp
  70.   global MH, MV, moviePath, CCcards, retMovie, Opt, Cnt, DemoFrame
  71.   if (MV < 446) or (MV > 472) then
  72.     return 
  73.   end if
  74.   set S1 to 6
  75.   puppetSound("Slide-Out")
  76.   set the locV of sprite S1 to -500
  77.   updateStage()
  78.   puppetSprite(S1, 0)
  79.   puppetSprite(25, 0)
  80.   if (MH > 59) and (MH < 128) then
  81.     if Opt then
  82.       keySound("BREVEAL")
  83.     else
  84.       reveal()
  85.     end if
  86.   else
  87.     if (MH > 132) and (MH < 205) then
  88.       if Opt then
  89.         keySound("BINTERPR")
  90.       else
  91.         puppetSound("DemoUnav")
  92.       end if
  93.     else
  94.       if (MH > 209) and (MH < 281) then
  95.         if Opt then
  96.           keySound("BVOICE")
  97.         end if
  98.       else
  99.         if (MH > 285) and (MH < 358) then
  100.           if Opt then
  101.             keySound("BSOUND")
  102.           end if
  103.         else
  104.           if (MH > 362) and (MH < 435) then
  105.             if Opt then
  106.               keySound("BCOLOR")
  107.             end if
  108.           else
  109.             if (MH > 438) and (MH < 511) then
  110.               if Opt then
  111.                 keySound("BDIARY")
  112.               else
  113.                 puppetSound("DemoUnav")
  114.               end if
  115.             else
  116.               if (MH > 515) and (MH < 585) then
  117.                 if Opt then
  118.                   keySound("BDEPART")
  119.                 else
  120.                   if DemoFrame = void then
  121.                     quit()
  122.                   else
  123.                     releaseSprites()
  124.                     if the controlDown then
  125.                       go("leave")
  126.                     else
  127.                       go("Bye")
  128.                     end if
  129.                   end if
  130.                 end if
  131.               end if
  132.             end if
  133.           end if
  134.         end if
  135.       end if
  136.     end if
  137.   end if
  138. end
  139.